www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminHTML\D_htm_x_zhuanti.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->

<!--#include file=../../inc/ND_class_function.asp-->


<!--#include file=inc_lanmu_bla.asp-->







<style type="text/css">
<!--
.STYLE2 {color: #FFFFFF; font-weight: bold; }
-->
</style>








<div  id="l_list" style="filter:blendTrans(duration=1);  width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 401px;width:730px">


<form action="D_do_htm_x_zhuanti.asp" method="post" target="_self" id="myform" name="myform">

<table  height="203" width=703 border="0" cellpadding="2" cellspacing="0" bordercolor="#999999" style="border:#999999 1px">

<tr>

<td height="72" colspan="3">

<table  height="68" width=705 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">





<tr>
<td width="61" height="26" align="center" class="adminth"><p class="STYLE2">选择</p>  </td>


<td width="644" height="26" align="center" class="adminth"><p class="STYLE2">专题 </p>  </td>
</tr>





	<%
	


sys_content_type=trim(request("sys_content_type"))




set rs_kkkk211=server.createobject("adodb.recordset")
sql="select * from ND_channel where sys_content_type_name='"&sys_content_type&"'"
rs_kkkk211.open sql,conn,1,1
ctypee=rs_kkkk211("lanmu_type")

if lcase(trim(ctypee))="article" then

biaoqqa="[ND_Article_class]"
biaoqq="[ND_Article]"
biaoqqz="[ND_Article_Special]"
pageaa="$page$zt_art_view_page$"
end if
if lcase(trim(ctypee))="down" then

biaoqqa="[ND_down_class]"
biaoqq="[ND_down]"
biaoqqz="[ND_down_Special]"
pageaa="$page$zt_down_view_page$"
end if
if lcase(trim(ctypee))="pic_or_sp" then

biaoqqa="[ND_pic_or_sp_class]"
biaoqq="[ND_pic_or_sp]"
biaoqqz="[ND_pic_or_sp_Special]"
pageaa="$page$zt_picsp_view_page$"
end if

if lcase(trim(ctypee))="cp" then

biaoqqa="[ND_prod_class]"
biaoqq="[ND_prod]"
biaoqqz="[ND_prod_Special]"
pageaa="$page$zt_prod_view_page$"
end if




%>


<script language="javascript">


function CheckAll(){


var dd=parseFloat(document.getElementById("len1").value);
var dd1;
for(var i=1;i<=dd;i++)
{

try{
dd1=document.getElementById("htmcl_"+i);
dd1.checked=true;
}
catch(e){

}

}


}

</script>





<script language="JavaScript" type="text/javascript">
function doposta(a){
document.getElementById("dowhat").value=a;
myform.submit();


}
        </script>


<%




iiiyy=1 



	CurrentPage=replacebadchar(request("page"))
	if CurrentPage="" then
	CurrentPage=1
	else if not IsNumeric(CurrentPage) then
	CurrentPage=1
	else if int(CurrentPage)<=0 then
	CurrentPage=1
	else
 	CurrentPage=replaceBadchar(request("page"))
 	end if
	end if
	end if
	
	maxperpage=15



 aryxx     =split(Request.ServerVariables("SCRIPT_NAME"),"/")   
  fileNamexx   =   aryxx(ubound(aryxx))

strFileName=fileNamexx




set Rs=server.CreateObject("adodb.recordset")
sql="select * from "&biaoqqz&" where sys_content_type='"&sys_content_type&"'  order by clng(orders) asc"
Rs.open sql,conn,1,1
        

			  
			  
			  
			  if not Rs.eof then
	Rs.pagesize=MaxPerpage
	totalnumber=Rs.recordcount
	if totalnumber mod maxperpage=0 then
   MaxPage= totalnumber \ MaxPerpage
  	else
   MaxPage= totalnumber \ MaxPerpage+1
  	end if
	if int(CurrentPage)>int(MaxPage) then
	CurrentPage=MaxPage
	else
	CurrentPage=CurrentPage
	end if
	Rs.absolutepage=CurrentPage
		for ni=1 to MaxPerpage
		if Rs.eof then exit for
		
		
		

		
			  %>
			  
			  
			  
			  
			  
			  
			  
  
  <tr bgcolor="#EDF8FE">
  
   <td width="61" height="27" align="center" bgcolor="#cccccc"><input type=checkbox value="<%=rs("id")%>" id="htmcl_<%=iiiyy%>"  name="htmcl_<%=iiiyy%>" /></td>
  
   
    <td width="644" align="left" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else  response.write "#eeeeee":end if%>"><%=left(rs("Specialname"),44)%></td>
 
	
   
  </tr>
  
  
	  	  
			  <%
			  
			  iiiyy=iiiyy+1 
			  
			  
			 Rs.movenext
			  next
			  else
			  %>
			  <tr><td height="15" colspan="7" align="center"  class=maintext><font color="#FF0000"><strong>暂没有专题……</strong></font></td>
	      </tr>
			  <%end if
			  
			  
			
			  Rs.close
			  set Rs=nothing
			  %>
			        
			
			
					



</table></td>
</tr>


 <tr bgcolor="#EDF8FE">
	  <td width="61" height="59" align="center" bgcolor="#CCCCCC">
      
   	    <input type="hidden" id="len1" name="len1" value="<%=iiiyy%>" />
			 
			 
	<input type="hidden" id="sys_content_type" name="sys_content_type" value="<%=sys_content_type%>" />
	<input type="hidden" id="pageaa" name="pageaa" value="<%=pageaa%>" />			  

    <input type="hidden" id="dowhat" name="dowhat" value="0" />
    
      <input type="hidden" id="isqiye" name="isqiye" value="<%=request("isqiye")%>" /> 
			 
			 <input class="Button" type="button" name="chkall" value="全选" onClick="CheckAll()">      </td>
      <td width="640">&nbsp;</td>
 </tr>

 <tr bgcolor="#EDF8FE">
	  <td width="61" height="53" bgcolor="#CCCCCC"><strong>请选择专题并进行<br />
	    生成htm<br />
	    操作</strong></td> 
	  <td width="640" bgcolor="#EDF8FE"><input class="Button" type="button" value="生成选中的专题的所有未更新过或未生成的内容专题页的htm页" onclick="doposta(1)" />
	  (推荐)
	  <br />
        <br />
        <input class="Button" type="button" value="生成选中的专题的所有内容专题页的htm页" onclick="doposta(2)" />
        <br />
        <br /></td>
 </tr>
</table>


<br />
<br />
<br /><br /><br />

  </form>
</div>
<script language=javascript>
AJAXfade(1,'l_list')
</script>